Dim lngPrice As Long


Private Sub Check1_Click()

If (Check1.Value = vbChecked) Then
    lngPrice = lngPrice + 150
ElseIf (Check1.Value = vbUnchecked) Then
    lngPrice = lngPrice - 150
End If
Label3.Caption = lngPrice

End Sub

Private Sub Check2_Click()

If (Check2.Value = vbChecked) Then
    lngPrice = lngPrice + 1200
ElseIf (Check2.Value = vbUnchecked) Then
    lngPrice = lngPrice - 1200
End If
Label3.Caption = lngPrice

End Sub

Private Sub Check3_Click()

If (Check3.Value = vbChecked) Then
    lngPrice = lngPrice + 300
ElseIf (Check3.Value = vbUnchecked) Then
    lngPrice = lngPrice - 300
End If
Label3.Caption = lngPrice

End Sub

Private Sub Check4_Click()

If (Check4.Value = vbChecked) Then
    lngPrice = lngPrice + 160
ElseIf (Check4.Value = vbUnchecked) Then
    lngPrice = lngPrice - 160
End If
Label3.Caption = lngPrice

End Sub

Private Sub Check5_Click()

If (Check5.Value = vbChecked) Then
    lngPrice = lngPrice + 250
ElseIf (Check5.Value = vbUnchecked) Then
    lngPrice = lngPrice - 250
End If
Label3.Caption = lngPrice

End Sub

Private Sub Command1_Click()
InputBox ("Enter your name, address and contact informations.")
End Sub

Private Sub Form_Load()
lngPrice = 0
Label3.Caption = lngPrice
End Sub

